home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 167 / 167.d81 / b.doodle show (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  95 lines
  1. 10 poke56,37:poke55,0:clr:poke53371,0
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 poke53281,0:poke53280,0:print"[147][155]       [203] [206] [197] [197] [211]   [195] [193] [204] [200] [207] [207] [206] ' [211]"
  4. 40 print"        [205][201][199][200][212][217] [205][197][197][212][201][206][199] [196][207][207][196][204][197] [211][200][207][215]"
  5. 42 ifgthen80
  6. 44 g=1
  7. 50 sys57812"tsv.o",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  8. 52 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  9. 60 sys57812"anneloid.shp",dv,0:poke780,0:poke781,0:poke782,37:sys65493
  10. 62 sys57812"taco flower.shp",dv,0:poke780,0:poke781,0:poke782,52:sys65493
  11. 64 sys57812"cypress.shp",dv,0:poke780,0:poke781,0:poke782,65:sys65493
  12. 66 sys57812"hoover.shp",dv,0:poke780,0:poke781,0:poke782,128:sys65493
  13. 70 pa(1)=37:pa(2)=52:pa(3)=65:pa(4)=128
  14. 72 fori=1to4:md(i)=peek(pa(i)*256):next
  15. 80 print"         [152][196]oodles by [155][203]nees [195]alhoon
  16. 82 [153][163]11)"1.cont atnnneloid
  17. 84 printtab(11)"2.[154] [212]aco [198]lower
  18. 86 [153][163]11)"3.cont (NULL)ad lenypress
  19. 87 printtab(11)"4.[154] [200]oover
  20. 88 [153][163]11)"5.cont (NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  21. 90 poke198,0
  22. 92 geta$:ifa$<"1"ora$>"5"then92
  23. 94 p=val(a$)
  24. 96 ifp=5then40000
  25. 98 gosub500
  26. 100 poke214,6:print
  27. 110 print" 1.[154] [202]ust show the picture
  28. 120 [153]" 2.cont (NULL)how the picture and print it on
  29. 125 print"    a 7-pin (1525-emulating) printer
  30. 130 [153]" 3.cont (NULL)how the picture and print it on
  31. 135 print"    an 8-pin ([197]pson-emulating) printer
  32. 140 [153]" 4.cont (NULL)eturn to lenartoon (NULL)enu
  33. 150 print" 5.[154] [210]eturn to [204][207][193][196][211][212][193][210]
  34. 170 [153]"list  (NULL)ake sure your printer is on-line.
  35. 220 poke198,0
  36. 230 geta$:ifa$<"1"ora$>"5"then230
  37. 232 a1=val(a$):ifa1=5then40000
  38. 235 ifa1=1then400
  39. 240 ifa1=2thentb=80:goto350
  40. 245 ifa1=4thengosub500:goto30
  41. 250 gosub500
  42. 260 poke214,6:print
  43. 270 print"       [196][197][206][211][201][212][217]      [215][201][196][212][200]
  44. 275 [153]"    1.cont (NULL)ingle       wide
  45. 280 print"    2.[154] [195]rt          normal
  46. 285 [153]"    3.cont str$ouble       narrow
  47. 290 print"    4.[154] [196]ouble       wide
  48. 295 [153]"    5.cont (NULL)uad         narrow
  49. 296 print"    6.[154] [209]uad         normal
  50. 300 [151]198,0
  51. 305 [161]a$:[139]a$[179]"1"[176]a$[177]"6"[167]305
  52. 310 a2[178][197](a$):[139]a2[178]1[167] ds[178]0:bt[178]1:tb[178]80
  53. 312 [139]a2[178]2[167] ds[178]4:bt[178]1:tb[178]120
  54. 314 [139]a2[178]3[167] ds[178]1:bt[178]1:tb[178]160
  55. 316 [139]a2[178]4[167] ds[178]1:bt[178]2:tb[178]80
  56. 318 [139]a2[178]5[167] ds[178]3:bt[178]2:tb[178]160
  57. 320 [139]a2[178]6[167] ds[178]3:bt[178]3:tb[178]120
  58. 350 [141]500
  59. 355 [151]214,6:[153]
  60. 360 [153]"       (NULL)atnpeekclose(NULL)(NULL)(NULL)right$(NULL)right$(NULL)(NULL)
  61. 362 print"    1.[154] [204]eft
  62. 364 [153]"    2.cont     lenenter
  63. 366 print"    3.[154]         [210]ight
  64. 368 [139]a2[179][177]3[175]a2[179][177]5[167]374
  65. 370 [153]"    4.cont   lenenter-left
  66. 372 print"    5.[154]       [195]enter-right
  67. 374 [151]198,0
  68. 376 [161]a$:[139]a$[179]"1"[176]a$[177]"5"[167]376
  69. 378 [139]a$[178]"1"[167]tb[178]0:[137]400
  70. 380 [139]a$[178]"2"[167]400
  71. 382 [139]a$[178]"3"[167]tb[178]tb[172]2:[137]400
  72. 384 [139]a2[179][177]3[175]a2[179][177]5[167]374
  73. 386 [139]a$[178]"4"[167]tb[178]53:[137]400
  74. 388 tb[178]266
  75. 400 [151]251,pa(p):[151]252,96:[151]253,92:[158]51456
  76. 405 [158]51459
  77. 410 [139]a1[178]2[167][158]49152,tb,md(p):[137]430
  78. 415 [139]a1[178]3[167][158]49155,tb,ds,bt,bt[172]320,md(p):[137]430
  79. 420 [151]198,0
  80. 425 [161]a$:[139]a$[178]""[167]425
  81. 430 [151]186,dv:[158]51459
  82. 435 [137]30
  83. 500 [129]x[178]6[164]24:[151]781,x:[158]59903:[130]:[142]
  84. 10000 d[178][194](186):n$[178]"b.doodle show":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  85. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  86. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  87. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  88. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  89. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  90. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  91. 40060 [130]:[142]
  92. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  93. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  94. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  95.